home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / util / cli / BaseConv_37_1.lha / BaseConv / UtilityLib.a < prev   
Encoding:
Text File  |  1994-11-18  |  576 b   |  40 lines
  1. ;
  2. ; $VER: UtilityLib.a 1.0 (29.10.94) · Copyright © 1994 Klaus A Seistrup, Magnetic Ink
  3. ;
  4.  
  5.     XDEF    _UtilityBase
  6.     XREF    __AutoFail0
  7.  
  8. CloseLibrary    EQU -$019E ; (libBase)(A1)
  9. OpenLibrary    EQU -$0228 ; (libName,libVer)(A1,D0)
  10.  
  11. LIBVER        EQU     37
  12.  
  13.     SECTION    autoinit0,code
  14.  
  15.     MOVEQ    #LIBVER,D0
  16.     LEA    libName(PC),A1
  17.     JSR    OpenLibrary(A6)
  18.     MOVE.L    D0,_UtilityBase(A4)
  19.     BEQ    __AutoFail0
  20.     BRA    I10
  21. libName    DC.B    'utility.library',0
  22.     DS.W    0
  23. I10
  24.  
  25.     SECTION    autoexit0,code
  26.  
  27.     MOVE.L    _UtilityBase(A4),D0
  28.     BEQ    L10
  29.     MOVEA.L    D0,A1
  30.     JSR    CloseLibrary(A6)
  31. L10
  32.  
  33.     SECTION    libbss,bss
  34.  
  35. _UtilityBase
  36.     DS.L    1
  37.  
  38.     END
  39.  
  40.